home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Commando Programming ƒ / Rezscripts / RezC.CNTL < prev    next >
Encoding:
Text File  |  1989-08-09  |  2.0 KB  |  112 lines  |  [TEXT/MPS ]
  1. ### File RezC.CNTL
  2. ### Generate Rez input for a Control Resource
  3. ### WGP 1988
  4.  
  5. Set Exit 0
  6. Set rtyp 'CNTL'
  7. If {#} < 10
  8.     Echo "### {0} Error: Bad arguments, use commando">>Dev:StdErr
  9.     Exit 1
  10. End
  11. Set rid {1}
  12. Shift 1
  13. Echo -n "Resource ∂'{rtyp}∂' ({rid}"
  14. If "{1}" == "-nms"
  15.     Set rname "{2}"
  16.     If ("{rname}" != "")
  17.         Echo -n ,∂""{rname}"∂"
  18.     End
  19.     Shift 2
  20. End
  21. If "{1}" == "-t"
  22.     Set tr {2}
  23.     Shift 2
  24. Else
  25.     Echo "### {0} Error: Rectangle args out of order">>Dev:StdErr
  26.     Exit 1
  27. End
  28. If "{1}" == "-l"
  29.     Set lr {2}
  30.     Shift 2
  31. Else
  32.     Echo "### {0} Error: Rectangle args out of order">>Dev:StdErr
  33.     Exit 1
  34. End
  35. If "{1}" == "-b"
  36.     Set br {2}
  37.     Shift 2
  38. Else
  39.     Echo "### {0} Error: Rectangle args out of order">>Dev:StdErr
  40.     Exit 1
  41. End
  42. If "{1}" == "-r"
  43.     Set rr {2}
  44.     Shift 2
  45. Else
  46.     Echo "### {0} Error: Rectangle args out of order">>Dev:StdErr
  47.     Exit 1
  48. End
  49. Set Vis "{1}"
  50. Shift 1
  51. If "{1}" == "-const"
  52.     Set RefCon "{2}"
  53.     Shift 2
  54. Else
  55.     Set RefCon 0
  56. End
  57. If "{1}" == "-label"
  58.     Set Label "{2}"
  59.     Shift 2
  60. Else
  61.     Set Label ""
  62. End
  63.  
  64. If ( "{1}" == "-sy" ) ; Echo -n ",SysHeap" ; Shift ; End
  65. If ( "{1}" == "-pu" ) ; Echo -n ",Purgeable" ; Shift ; End
  66. If ( "{1}" == "-lo" ) ; Echo -n ",Locked" ; Shift ; End
  67. If ( "{1}" == "-Pr" ) ; Echo -n ",Protected" ; Shift ; End
  68. If ( "{1}" == "-PL" ) ; Echo -n ",PreLoad" ; Shift ; End
  69. Echo ") ∂{"
  70. Echo "∂t∂{{tr},{lr},{br},{rr}∂},∂t∂t∂/* Bounds Rect *∂/"
  71.  
  72. If "{1}" == "-P"
  73.     Set ProcID 0
  74. Else If "{1}" == "-C"
  75.     Set ProcID 1
  76. Else If "{1}" == "-R"
  77.     Set ProcID 2
  78. Else If "{1}" == "-S"
  79.     Set ProcID 16
  80. Else
  81.     Echo "### {0} Error: Unknown ProcID for control">>Dev:StdErr
  82.     Exit 1
  83. End
  84. Shift 1
  85. If "{1}" == "-W"
  86.     Set WFont 8
  87.     Shift 1
  88. Else
  89.     Set WFont 0
  90. End
  91. IF {ProcID} != 16
  92.     Set ProcID `Evaluate {ProcID} + {WFont} `
  93. End
  94. Set Value {1}
  95. Set Min {2}
  96. Set Max {3}
  97. Echo "∂t{Value},∂t∂t∂/* Value *∂/"
  98. If "{Vis}" == "-I"
  99.     Echo "∂tInvisible,"
  100. Else
  101.     Echo "∂tVisible,"
  102. End
  103. Echo "∂t{Max},∂t∂t∂/* Maximum *∂/"
  104. Echo "∂t{Min},∂t∂t∂/* Minimum *∂/"
  105. Echo "∂t{ProcID},∂t∂t∂/* ProcID *∂/"
  106. Echo "∂t{RefCon},∂t∂t∂/* RefCon *∂/"
  107. Echo "∂t∂"{Label}∂""
  108. Echo "∂};"
  109. Exit 0
  110.  
  111.     
  112.